home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 November / Cd users extra 14.iso / prog / inst / mailc / qm_pgm.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-09-14  |  3.0 KB  |  99 lines
  1. //
  2. // Borland C++ Builder Example Program
  3. //
  4. //---------------------------------------------------------------------------
  5. #include <vcl\vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "qm_pgm.h"
  9. #include "see.h"
  10.  
  11. // NOTES:
  12. //   SEE32_.LIB was added to QM_PRJ.MAK
  13. //   To create SEE32_.LIB from SEE32.DLL: IMPLIB SEE32_.LIB SEE32.DLL
  14.  
  15.  static char Server[65]   = "\0";
  16.  static char From[65]     = "\0";
  17.  static char Reply[2]     = "\0";
  18.  static char To[65]       = "\0";
  19.  static char Subject[65]  = "\0";
  20.  static char Message[1025]= "\0";
  21.  static char IsNull[2]    = "\0";
  22.  static char Buffer[65]   = "\0";
  23.  
  24. //---------------------------------------------------------------------------
  25. #pragma resource "*.dfm"
  26. TForm1 *Form1;
  27. //---------------------------------------------------------------------------
  28. __fastcall TForm1::TForm1(TComponent* Owner)
  29.         : TForm(Owner)
  30. {
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TForm1::mExitClick(TObject *Sender)
  34. {seeClose();
  35.  Close();
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TForm1::mConnectClick(TObject *Sender)
  39. {int Code;
  40.  eServer->GetTextBuf((char *)Server, 64);
  41.  eFrom->GetTextBuf((char *)From, 64);
  42.  seeStringParam(SEE_LOG_FILE,(LPSTR)"qm.log");
  43.  if(strlen(Server)<=1)
  44.    {eResult->SetTextBuf("'Server' field is empty!");
  45.     return;
  46.    }
  47.  if(strlen(From)<=1)
  48.    {eResult->SetTextBuf("'From' field is empty!");
  49.     return;
  50.    }
  51.  // connect to server
  52.  eResult->SetTextBuf("Connecting to server...");
  53.  Code = seeSmtpConnect(
  54.    (LPSTR)Server,    // SMTP server
  55.    (LPSTR)From,      // return email address
  56.    (LPSTR)Reply);
  57.  if(Code>=0)
  58.    {eResult->SetTextBuf("Connection completed.");
  59.     mSend->Enabled = true;
  60.     mClose->Enabled = true;
  61.     mConnect->Enabled = false;
  62.    }
  63.  else
  64.    {seeErrorText(Code,(LPSTR)Buffer,64);
  65.     eResult->SetTextBuf(Buffer);
  66.    }
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::mSendClick(TObject *Sender)
  70. {int Code;
  71.  eResult->SetTextBuf("Sending email...");
  72.  eTo->GetTextBuf((char *)To, 64);
  73.  eSubject->GetTextBuf((char *)Subject, 64);
  74.  eMessage->GetTextBuf((char *)Message, 1024);
  75.  Code = seeSendEmail(
  76.     (LPSTR)To,           // To list
  77.     (LPSTR)IsNull,       // CC list
  78.     (LPSTR)IsNull,       // BCC list
  79.     (LPSTR)Subject,      // subject
  80.     (LPSTR)Message,      // message text
  81.     (LPSTR)IsNull);      // attachment
  82.  if(Code>=0)
  83.    {eResult->SetTextBuf("Email sent.");
  84.    }
  85.  else
  86.    {seeErrorText(Code,(LPSTR)Buffer,64);
  87.     eResult->SetTextBuf(Buffer);
  88.    }
  89. }
  90. //---------------------------------------------------------------------------
  91. void __fastcall TForm1::mCloseClick(TObject *Sender)
  92. { eResult->SetTextBuf("Connection closed.");
  93.   seeClose();
  94.   mConnect->Enabled = true;
  95.   mSend->Enabled = false;
  96.   mClose->Enabled = false;
  97. }
  98. //---------------------------------------------------------------------------
  99.